home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Plus Extra 1997 #1
/
Amiga Plus Extra 1997 #1.iso
/
programme
/
daten
/
adm
/
termintool
/
entpacken
next >
Wrap
Text File
|
1996-08-07
|
4KB
|
110 lines
/* $VER: Install V 2.2 (25.3.96) © Bernd Stange */
/*************************************************************************/
Ver = 'Install V 2.2 (25.3.96) © Bernd Stange'
IF ~SHOW(LIBRARIES,'rexxsupport.library') THEN
IF ~ADDLIB('rexxsupport.library',0,-30,0) THEN
EXIT 10
IF ~SHOW(LIBRARIES,'rexxreqtools.library') THEN
IF ~ADDLIB('rexxreqtools.library',0,-30,0) THEN
EXIT 10
NL = "0a"x
Titel = Ver
ADDRESS COMMAND 'assign in: "" '
IF ~EXISTS('WBStartup/ADMGebStart') THEN DO
ADDRESS COMMAND "/c/lhx -qm x TerminTool.lha"
ADDRESS COMMAND "/c/drawicon ADM_Erinnern.guide"
ADDRESS COMMAND "/c/drawicon Prefs"
ADDRESS COMMAND "/c/drawicon WBStartup"
ADDRESS COMMAND "/c/drawicon c"
ADDRESS COMMAND "/c/drawicon ADM"
END
CALL Anleitung
CALL Pfad1
CALL Pfad2
CALL Pfad3
CALL InstallFrage
CALL Kopier
OK = rtezrequest('Installation fertig: Einstellungen bearbeiten ?', "Ja|Nein",ver)
IF ok = 1 THEN ADDRESS COMMAND 'execute in:prefs/ADMscPrefs >NIL:'
EXIT
/***********************************************************************/
Anleitung:
Info = rtezrequest('Installations-Verlauf:'|| NL ||,
'Zuerst werden folgende Pfade ermittelt.'|| NL ||,
'Verzeichnis für ADMGebStart. (Default: Sys:WBStartup)'|| NL ||,
'Verzeichnis für ADMscPrefs u. Termine. (Default: Sys:Prefs)'|| NL ||,
'Verzeichnis für ADMGebList.adm (Bitte ADM/ARexx wählen)'|| NL ||,
'Liegt AskReq in c:? Falls nicht, so wird es dorthin kopiert.'|| NL ||,
'Check aller Pfade und das Kopieren der Scripts beginnt.'|| NL ||,
'Ein Abbruch ist jederzeit möglich!.'|| NL ||,
' ', "Weiter|Abbruch",ver)
IF Info = '0' THEN EXIT
RETURN
Pfad1:
PfadADMGebStart = rtfilerequest("sys:wbstartup","","Verzeichnis für ADMGebStart auswählen !","OK, auswählen!",'rtfi_flags = freqf_nofiles')
IF PfadADMGebStart = "" THEN EXIT
RETURN
Pfad2:
PfadADMscPrefs = rtfilerequest("sys:prefs","","Zielverzeichnis für ADMscPrefs u. Termine!","OK, auswählen!",'rtfi_flags = freqf_nofiles')
IF PfadADMscPrefs = "" THEN EXIT
RETURN
Pfad3:
PfadADMGebList = rtfilerequest("Bitte ADM/ARexx wählen","","ADMGebList.adm gehört in ADM/ARexx !","OK, auswählen!",'rtfi_flags = freqf_nofiles')
IF PfadADMscPrefs = "" THEN EXIT
RETURN
INSTALLFrage:
ok = rtezrequest('Installiere alle ADMScripts und Zusatzprogramme !'|| NL ||,
'Bereits installierte Versionen werden Ü B E R S C H R I E B E N !' || NL ||,
'Gewählte Pfade:' || NL ||,
'[1]...kopiere ADMGebStart nach' PfadADMGebStart || NL ||,
'[2]...kopiere ADMscPrefs u.Termine nach' PfadADMscPrefs || NL ||,
'[3]...kopiere ADMGebList.adm nach' PfadADMGebList,'Installiere|[1]|[2]|[3]|Abbruch',ver)
IF OK = '0' THEN EXIT
IF OK = '2' THEN DO
CALL Pfad1
CALL INSTALLFrage
END
IF OK = '3' THEN DO
CALL Pfad2
CALL INSTALLFrage
END
IF OK = '4' THEN DO
CALL Pfad3
CALL INSTALLFrage
END
RETURN
Ask:
IF ~EXISTS('c:Askreq') THEN DO
OK = rtezrequest('Soll ich Askreq ins c: kopieren ?', "Ja|Nein",ver)
IF ok = 1 THEN DO
ADDRESS COMMAND
'copy in:c/#? c:'
END
END
RETURN
Kopier:
ADDRESS COMMAND
'copy in:wbstartup/#? ' '"' || PfadADMGebStart || '"'
'copy in:prefs/ADMscPrefs#?' '"' || PfadADMscPrefs || '"'
'copy in:prefs/Termine#?' '"' || PfadADMscPrefs || '"'
'copy in:ADM/ADMGebList.adm#?' '"' || PfadADMGebList || '"'
SAY "Fertig... have fun !"
RETURN